function mmcgh_dispfiles(sel_files,lnfile,v,pathname)
%ok=0;
global htxt_exportFiles
global fileform inter_value normtype clone_file_path
global stdBackIn maxStd_rep
global p_1 p1 p0 m1 m0 m_1 s_1 s1 s0
global str1 F1
global numofrun

dispfiles_fig=figure(30);
set(dispfiles_fig,'Color',[0.8 1 1], ...
   	'units','normalized', ...
   	'Position',[0.55 0.07 0.3 0.45], ...
   	'DoubleBuffer','on',...
   	'Tag','table_fig',...
    'NumberTitle','off',...
    'Name','MMCGH -Extract Files for Clustering');

htxt_Files=uicontrol('Parent',dispfiles_fig,...
		    'Units', 'normalized', ...
		    'Style', 'text', ...
		    'Position', [.02 .89  .9 0.07],...
		    'Backg', [1 1 1], ...
		    'Foreg', [0 0 0], ...
		    'String','You have selected MCGH Export files: ', ...
		    'FontUnits', 'Normalized',...
		    'FontSize',  0.01, ...
		    'FontWeight',  'bold', ...
		    'HorizontalAlignment', 'left', ...
		    'Tag', 'filestext');


htxtdisp =uicontrol('Parent',dispfiles_fig,...
		    'Units', 'normalized', ...
		    'Style', 'list', ...
		    'Position', [.02 .4  .9 0.48],...
		    'Backg', [1 1 1], ...
		    'Foreg', [0 0 0], ...
		    'String',strvcat(sel_files), ...
		    'FontUnits', 'Normalized',...
		    'FontSize',  0.01, ...
		    'FontWeight',  'normal', ...
		    'HorizontalAlignment', 'left', ...
		    'Tag', 'disptext');
set(htxtdisp,'String',strvcat(sel_files)); 


htxt_exportFiles=uicontrol('Parent',dispfiles_fig,...
		    'Units', 'normalized', ...
		    'Style', 'text', ...
		    'Position', [.02 .1  .9 0.2],...
		    'Backg', [1 1 1], ...
		    'Foreg', [1 0 0], ...
		    'String','', ...
		    'FontUnits', 'Normalized',...
		    'FontSize',  0.01, ...
		    'FontWeight',  'bold', ...
		    'HorizontalAlignment', 'left', ...
		    'Tag', 'files2text');
        

ContBut1=uicontrol('style','push','string','Continue',...
	'position',[ 10 110 90 20], ...
	'callback', ...
    ['mmcgh_multiExtract(sel_files,pathname,lnfile,v);' ...
     ],...
    'Interruptible','on');

closeBut1=uicontrol('style','push','string','Exit',...
	'position',[ 150 110 90 20], ...
	'callback', ['delete(30);'],'Interruptible','on');

%'MenuBar','none',...
disp_axes = axes('Parent',dispfiles_fig, ...
		 'units','normalized', ...
		 'CameraUpVector',[0 1 0], ...
		 'CameraUpVectorMode','manual', ...
		 'Color',[0.8 1 1], ...
		 'Position',[0.2 .2 .5 .50], ...
		 'Tag','Properties_fig_axes', ...
		 'XColor',[0.8 1 1], ...
		 'YColor',[0.8 1 1], ...
		 'ZColor',[0.8 1 1],...
         'XTick',[],...
         'YTick',[]');
axes(disp_axes);
set(dispfiles_fig,'HandleVisibility','off');
%function sayFinish(htxt)
%set(htxt,'String',['Exported file in ',pathname,'selected_test.data']); 
%if ok==1
%    htxt_Files2=uicontrol('Parent',dispfiles_fig,...
%		    'Units', 'normalized', ...
%		    'Style', 'text', ...
%		    'Position', [.02 .1  .9 0.2],...
%		    'Backg', [1 1 1], ...
%		    'Foreg', [1 0 0], ...
%		    'String',['Exported file in ',pathname,'selected_test.data'], ...
%		    'FontUnits', 'Normalized',...
%		    'FontSize',  0.01, ...
%		    'FontWeight',  'bold', ...
%		    'HorizontalAlignment', 'left', ...
%		    'Tag', 'files2text');
%end
    